VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "BLog"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
Attribute VB_Ext_KEY = "Member0" ,"bUsuario"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
Option Explicit

'local variable(s) to hold property value(s)
Private mvarnId As Integer 'local copy
Private mvarbUsuario As bUsuario 'local copy
Private mvardFecha As Date 'local copy
Private mvarsMensaje As String 'local copy
Private mvarsModulo As String 'local copy
Private mvarsOpcion As String 'local copy

Public Function create(bUsuario As bUsuario, mensaje As String) As bLog
Dim bLog As New bLog
Set bLog.bUsuario = bUsuario
bLog.sMensaje = mensaje
Set create = bLog
End Function

Friend Property Let sMensaje(ByVal vData As String)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.sMensaje = 5
    mvarsMensaje = vData
End Property


Friend Property Get sMensaje() As String
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.sMensaje
    sMensaje = mvarsMensaje
End Property

Friend Property Let sModulo(ByVal vData As String)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.sMensaje = 5
    mvarsModulo = vData
End Property


Friend Property Get sModulo() As String
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.sMensaje
    sModulo = mvarsModulo
End Property

Friend Property Let sOpcion(ByVal vData As String)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.sMensaje = 5
    mvarsOpcion = vData
End Property


Friend Property Get sOpcion() As String
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.sMensaje
    sOpcion = mvarsOpcion
End Property

Friend Property Let dFecha(ByVal vData As Date)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.dfecha = 5
    mvardFecha = vData
End Property


Friend Property Get dFecha() As Date
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.dfecha
    dFecha = mvardFecha
End Property



Friend Property Set bUsuario(ByVal vData As bUsuario)
'used when assigning an Object to the property, on the left side of a Set statement.
'Syntax: Set x.bUsuario = Form1
    Set mvarbUsuario = vData
End Property


Friend Property Get bUsuario() As bUsuario
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.bUsuario
    Set bUsuario = mvarbUsuario
End Property



Friend Property Let nCodigo(ByVal vData As Integer)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.nId = 5
    mvarnId = vData
End Property


Friend Property Get nCodigo() As Integer
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.nId
    nCodigo = mvarnId
End Property



Private Sub Class_Initialize()
Set bUsuario = New bUsuario
End Sub
